home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / tu32.zip / TU32DEMO / BTCHDEMO / ERRTBDLG.PAS < prev    next >
Pascal/Delphi Source File  |  1996-11-08  |  1KB  |  49 lines
  1. unit Errtbdlg;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, Grids, DBGrids, DB, DBTables, ExtCtrls;
  7.  
  8. type
  9.   TBtnBottomDlg = class(TForm)
  10.     OKBtn: TBitBtn;
  11.     HelpBtn: TBitBtn;
  12.     DataSource1: TDataSource;
  13.     TableErrTable: TTable;
  14.     PanelRed: TPanel;
  15.     DBGridViewErr: TDBGrid;
  16.     procedure FormActivate(Sender: TObject);
  17.     procedure FormDeactivate(Sender: TObject);
  18.     procedure FormCreate(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   BtnBottomDlg: TBtnBottomDlg;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31. procedure TBtnBottomDlg.FormActivate(Sender: TObject);
  32. begin
  33.   TableErrTable.Active := False;
  34.   TableErrTable.DatabaseName := Session.PrivateDir;
  35.   TableErrTable.Active := True;
  36. end;
  37.  
  38. procedure TBtnBottomDlg.FormDeactivate(Sender: TObject);
  39. begin
  40.   TableErrTable.Active := False;
  41. end;
  42.  
  43. procedure TBtnBottomDlg.FormCreate(Sender: TObject);
  44. begin
  45.   TableErrTable.DatabaseName := Session.PrivateDir;
  46. end;
  47.  
  48. end.
  49.